0 REM "[185][185][185][185]DOODLE LOADER & DMP[185][185][185][185]" 1 : 4 : REM..LIST 10000 FOR CREDITS 5 : 9 IFFL=1THEN310 10 POKE2,1:POKE53281,0:POKE53280,11:PRINT"" 11 IFA=0ANDYS=0THENGOSUB1000 15 IFA=0THEN POKE55,0:POKE56,92:CLR:DIMA$(20):AU=0 20 RESTORE 25 C=11:REM BORDER COLOR 30 IFA=0THENA=1:GOSUB500 40 GOSUB700 198 IFPEEK(197)=49THENAU=0:REM KEYBRD MATRIX VALUE OF '*'(AUTO OFF) 199 IFAU=1THENFORTT=1TO50:NEXTTT:I=I+1:GOTO250:REM AUTO MODE 200 POKE198,0:WAIT198,1:GETB$ 201 IFB$="^"THENAU=1:GOTO199:REM '^' SWITCHES AUTO MODE ON 202 IFB$="[134]"THENC=C-1:POKE53280,C:IFC=0THENC=15:REM F3 PREVIOUS BORDER COLOR 203 IFB$="[135]"THENC=C+1:POKE53280,C:IFC=15THENC=0:REM F5 NEXT BORDER COLOR 205 IFB$="[139]"THENSYS52224:GOTO200:REM F6 1525 M/L SCREEN DUMP 206 IFB$="1"THENPOKE2,1:REM 1 FOR SINGLE-SIZE DUMP 207 IFB$="2"THENPOKE2,2:REM 2 FOR DOUBLE-SIZE DUMP 210 IFB$="[140]"THENI=I+1:GOTO250:REM F8 NEXT SCREEN W/O MENU 215 IFB$="[196]"THENGOSUB500:GOSUB700:REM SHIFT-D FOR NEW DISK 220 IFB$="[133]"THEN270:REM F1 TOGGLE TO MENU 230 IFB$<"A"ORB$>"Q"THEN200 240 I=ASC(B$)-64 250 IFI>17THENI=1 260 F$="DD"+A$(I) 265 IFF$="DD--------------"THEN198 270 POKE53265,59:POKE53272,120 280 POKE56576,PEEK(56576)AND254 290 FL=0:IFB$<>"[133]"THENFL=1:LOAD F$,8,1 310 IFAU=1THENGOTO198 320 GETT$:IFT$=""THEN320 325 IFT$<>"[133]"THENB$=T$:T$="":GOTO201 329 GOSUB330:GOTO360 330 POKE53265,27:POKE53272,21 340 POKE56576,PEEK(56576)OR1:RETURN 360 GOTO200 500 GOSUB330:PRINTFRE(0);"[147] INSERT DOODLE DISK AND PRESS ANY KEY." 501 POKE198,0:WAIT198,1:GETA$ 502 PRINT" PLEASE WAIT. READING DIRECTORY." 504 FORD=1TO17:A$(D)="--------------":NEXT 505 OPEN2,8,0,"$0:DD*":GET#2,A$,A$:D=-1:GOTO527 510 GET#2,A$:IFST<>0THENCLOSE2:I=0:RETURN 515 IFA$<>CHR$(34)THEN510 517 A$(D)="" 520 GET#2,A$,A$:REM CANCEL 'DD' 525 GET#2,A$:IFA$<>CHR$(34)THENA$(D)=A$(D)+A$:GOTO525 526 GET#2,A$:IFA$<>""THEN526 527 GET#2,A$,A$,A$,A$ 530 D=D+1:GOTO510 700 PRINT"[147][142][154] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][174]" 701 PRINT"[154] [176][179][158]DOODLE SLIDESHOW[146][154][171][192][192][179][129]W.SCHMIDT/R.W[154][171][192][174]" 710 PRINT"[154] [194][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [173][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [194]" 720 PRINT" [221] A[146] "A$(1)TAB(21)"I[146] "A$(9)TAB(38)"[154][221]" 730 PRINT" [221] B[146] "A$(2)TAB(21)"J[146] "A$(10)TAB(38)"[154][221]" 740 PRINT" [221] C[146] "A$(3)TAB(21)"K[146] "A$(11)TAB(38)"[154][221]" 750 PRINT" [221] D[146] "A$(4)TAB(21)"L[146] "A$(12)TAB(38)"[154][221]" 760 PRINT" [221] E[146] "A$(5)TAB(21)"M[146] "A$(13)TAB(38)"[154][221]" 770 PRINT" [221] F[146] "A$(6)TAB(21)"N[146] "A$(14)TAB(38)"[154][221]" 780 PRINT" [221] G[146] "A$(7)TAB(21)"O[146] "A$(15)TAB(38)"[154][221]" 790 PRINT" [221] H[146] "A$(8)TAB(21)"P[146] "A$(16)TAB(38)"[154][221]" 795 PRINT" [221]"TAB(12)"Q[146] "A$(17)TAB(38)"[154][221]" 797 PRINT" [173][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][189]" 798 PRINT" [192][192][192][192][192][192][179]SHIFT-D FOR NEW DISK[154][171][192][192][192][192][192][192] 799 [143] PRINT" FOR CONTINUOUS FROM MENU,SELECT 800 REM PRINT" VIEW OF SCREENS [158]OR[146][129] LETTER[154] TO LOAD & 801 [143] PRINT" LOADING, USE FORF8WAITCONT VIEW EACH DOODLE 802 REM PRINT" [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196] [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][154] 803 [153]" ORTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTAN^ 820 PRINT" [221] PRESS [129]F1[146] TO TOGGLE TO & FROM MENU[154] [221]" 821 PRINT" [221] ... [129]A[146]TO[129]Q[146] TO SELECT LOAD & VIEW [154] [221]" 822 PRINT" [221] ... [129]F8[146] TO LOAD NEXT SCREEN [154] [221]" 823 PRINT" [221] ... [129] ^ TO START AUTO SEQ. LOAD [154] [221]" 824 PRINT" [221] ... [129] * & HOLD[146] TO STOP AUTO LOAD[154] [221]" 825 PRINT" [221] ... [129]F3[146] TO CHANGE BORDER COLOR(-)[154][221]" 826 PRINT" [221] ... [129]F5[146] TO CHANGE BORDER COLOR(+)[154][221]" 827 PRINT" [221] ... [129]F6[146] FOR 1525 M/L BIT-MAP DUMP[154][221]" 828 PRINT" [221] ... [129]1[146]OR[129]2[146]  (SINGLE/DOUBLE-SIZE) [154][221]" 830 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"; 835 RETURN 998 :------------------------ 999 REM CHOICE FOR POKING 1525 M/L BIT-MAP DUMP 1000 YS=0:PRINT"[147] DO YOU WANT THE HIRES DUMP($CC00-1525)":PRINT,,"[157][157][157](Y/N)?" 1010 GETYS$:IFYS$=""THEN1010 1020 IFYS$="N"THENYS=2:RETURN 1030 IFYS$="Y"THENYS=1:PRINT"[147] POKING M/L DATA(6 SEC.)...[158]":GOSUB 50000:RETURN 1040 GOTO1010 1050 :----------------------- 10000 : REM"[184][184][184][184][184][184]CREDITS[184][184][184][184][184][184][184][184]" 10010 : REM MENU SELECT DEMO (RGW) 10020 : REM RICHARD G. WILMOTH : NEWPORT NEWS,VA 10030 : REM SUBSTANTIAL FUNCTIONAL & : COSMETIC ENHANCEMENTS BY 10039 : REM WAYNE R. SCHMIDT,NYC 10040 : REM DIRECTORY READ ROUTINE 10045 : REM WRITTEN BY... 10050 : REM *** ANTHONY MANSO *** 20000 :----------------------- 50000 FOR ADRES=52224TO52847:READ DATTA:POKE ADRES,DATTA:PRINT".";:NEXT ADRES 50010 PRINT"*":RETURN 52224 DATA 173, 0, 221, 41, 3, 73 52230 DATA 3, 160, 6, 10, 136, 208 52236 DATA 252, 141, 132, 3, 173, 24 52242 DATA 208, 41, 8, 240, 9, 24 52248 DATA 169, 32, 109, 132, 3, 141 52254 DATA 132, 3, 169, 0, 32, 189 52260 DATA 255, 169, 4, 170, 160, 255 52266 DATA 32, 186, 255, 32, 192, 255 52272 DATA 162, 4, 32, 201, 255, 176 52278 DATA 3, 76, 61, 204, 76, 32 52284 DATA 205, 169, 8, 32, 210, 255 52290 DATA 169, 13, 32, 210, 255, 162 52296 DATA 0, 169, 1, 141, 198, 205 52302 DATA 169, 0, 141, 199, 205, 169 52308 DATA 0, 141, 200, 205, 169, 199 52314 DATA 141, 201, 205, 32, 225, 255 52320 DATA 208, 3, 76, 32, 205, 138 52326 DATA 72, 152, 72, 32, 41, 205 52332 DATA 104, 168, 104, 170, 173, 205 52338 DATA 205, 45, 203, 205, 240, 12 52344 DATA 173, 202, 205, 13, 198, 205 52350 DATA 141, 202, 205, 76, 143, 204 52356 DATA 173, 198, 205, 73, 255, 45 52362 DATA 202, 205, 141, 202, 205, 14 52368 DATA 198, 205, 173, 198, 205, 201 52374 DATA 128, 240, 20, 24, 173, 199 52380 DATA 205, 105, 1, 141, 199, 205 52386 DATA 173, 200, 205, 105, 0, 141 52392 DATA 200, 205, 76, 93, 204, 173 52398 DATA 202, 205, 9, 128, 224, 45 52404 DATA 144, 10, 173, 202, 205, 41 52410 DATA 31, 9, 128, 141, 202, 205 52416 DATA 142, 207, 205, 32, 32, 206 52422 DATA 234, 234, 234, 234, 234, 234 52428 DATA 234, 234, 234, 234, 234, 234 52434 DATA 174, 207, 205, 169, 1, 141 52440 DATA 198, 205, 169, 0, 141, 202 52446 DATA 205, 56, 173, 199, 205, 233 52452 DATA 6, 141, 199, 205, 173, 200 52458 DATA 205, 233, 0, 141, 200, 205 52464 DATA 206, 201, 205, 173, 201, 205 52470 DATA 201, 255, 240, 3, 76, 93 52476 DATA 204, 224, 46, 176, 31, 24 52482 DATA 173, 199, 205, 105, 7, 141 52488 DATA 199, 205, 173, 200, 205, 105 52494 DATA 0, 141, 200, 205, 232, 169 52500 DATA 199, 141, 201, 205, 169, 13 52506 DATA 32, 210, 255, 76, 224, 205 52512 DATA 169, 13, 32, 210, 255, 32 52518 DATA 231, 255, 96, 173, 201, 205 52524 DATA 41, 7, 141, 204, 205, 173 52530 DATA 201, 205, 74, 74, 74, 168 52536 DATA 185, 146, 205, 133, 251, 185 52542 DATA 172, 205, 133, 252, 24, 165 52548 DATA 251, 109, 204, 205, 133, 251 52554 DATA 165, 252, 105, 0, 133, 252 52560 DATA 24, 173, 132, 3, 101, 252 52566 DATA 133, 252, 173, 199, 205, 41 52572 DATA 7, 73, 7, 168, 200, 169 52578 DATA 0, 56, 42, 136, 208, 252 52584 DATA 141, 203, 205, 24, 173, 200 52590 DATA 205, 101, 252, 133, 252, 173 52596 DATA 199, 205, 41, 248, 168, 138 52602 DATA 72, 120, 162, 52, 134, 1 52608 DATA 177, 251, 162, 55, 134, 1 52614 DATA 88, 168, 104, 170, 152, 45 52620 DATA 203, 205, 141, 205, 205, 96 52626 DATA 0, 64, 128, 192, 0, 64 52632 DATA 128, 192, 0, 64, 128, 192 52638 DATA 0, 64, 128, 192, 0, 64 52644 DATA 128, 192, 0, 64, 128, 192 52650 DATA 0, 64, 0, 1, 2, 3 52656 DATA 5, 6, 7, 8, 10, 11 52662 DATA 12, 13, 15, 16, 17, 18 52668 DATA 20, 21, 22, 23, 25, 26 52674 DATA 27, 28, 30, 31, 0, 0 52680 DATA 0, 0, 0, 0, 0, 0 52686 DATA 0, 0, 0, 0, 0, 0 52692 DATA 0, 0, 0, 0, 0, 0 52698 DATA 0, 0, 0, 0, 0, 0 52704 DATA 234, 234, 234, 165, 2, 201 52710 DATA 2, 208, 38, 173, 216, 205 52716 DATA 201, 1, 240, 26, 169, 1 52722 DATA 141, 216, 205, 56, 173, 199 52728 DATA 205, 233, 7, 141, 199, 205 52734 DATA 173, 200, 205, 233, 0, 141 52740 DATA 200, 205, 202, 76, 93, 204 52746 DATA 169, 0, 141, 216, 205, 224 52752 DATA 46, 176, 3, 76, 93, 204 52758 DATA 76, 32, 205, 0, 0, 0 52764 DATA 0, 0, 0, 0, 141, 217 52770 DATA 205, 166, 2, 142, 206, 205 52776 DATA 224, 1, 240, 49, 41, 127 52782 DATA 162, 8, 10, 8, 46, 218 52788 DATA 205, 46, 219, 205, 40, 46 52794 DATA 218, 205, 46, 219, 205, 202 52800 DATA 208, 238, 14, 218, 205, 46 52806 DATA 219, 205, 78, 218, 205, 162 52812 DATA 1, 236, 216, 205, 208, 6 52818 DATA 173, 219, 205, 76, 91, 206 52824 DATA 173, 218, 205, 9, 128, 168 52830 DATA 32, 210, 255, 152, 206, 206 52836 DATA 205, 208, 246, 96, 0, 0 52842 DATA 0, 0, 0, 0, 0, 0